home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / impr_base.idb / usr / lib / print / data / PSImageProlog.z / PSImageProlog
Encoding:
Text File  |  1997-07-30  |  6.8 KB  |  233 lines
  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. %%Title: PSImageProlog
  3. %%Copyright: 1993 Silicon Graphics, Inc. All rights reserved.
  4. % 
  5. %  Procedure: processImage
  6. %
  7. %  Description:
  8. %    This PostScript code prolog defines a procedure for displaying
  9. %    a bitmap image. The procedure provides for zooming, rotating
  10. %    and mirroring the image. In addition, the procedure accepts
  11. %    both ASCII hex image data and binary image data.
  12. %
  13. %  Syntax:
  14. %    IWidth IHeight IBits Binary NChans Angle BestFit FlipY RasDir
  15. %    Zoom IRes NUpx NUpy NPos processImage
  16. %
  17. %  Parameters:
  18. %    IWidth, IHeight    - Image width and height in pixels
  19. %    IBits        - Bits per color component (1, 2, 4, or 8)
  20. %    Binary        - Data type: 0 = ASCII hex, 1 = binary
  21. %    NChans        - Number of data channels (1, 3 or 4)
  22. %    Angle        - Image rotation angle in degress
  23. %    BestFit        - Image orientation: 0 = use angle, 1 = best fit
  24. %    FlipY        - Mirror image about Y axis: 0 = no, 1 = flip
  25. %    RasDir        - Raster direction: 0 = top to bottom, 1 = bot. to top
  26. %    Zoom        - Zoom factor: 0.0 = no zoom, 1.0 = zoom to fit
  27. %              imageable area, 0.5 = zoom to 50% of imageable area
  28. %    IRes        - Render image assuming specified resolution
  29. %    NUpx, NUpy    - Place nupx by nupy images per page
  30. %    NPos        - Position in nup sequence (0, 1, ..., nup-1)
  31. % 
  32. %%BeginResource: procset processImage 1.2 0
  33.  
  34. /processImage {
  35.  
  36.     % Get procedure parameters
  37.  
  38.     /NPos    exch def        % N up position
  39.     /NUpY    exch def        % N up in Y direction
  40.     /NUpX    exch def        % N up in X direction
  41.     /IRes    exch def        % Required image resolution
  42.     /Zoom    exch def        % Zoom factor
  43.     /RasDir  exch def        % Raster direction
  44.     /FlipY   exch def        % Mirror about Y
  45.     /BestFit exch def        % Page orientation flag
  46.     /Angle   exch def        % Rotation angle (degrees)
  47.     /NChans  exch def        % Number of image data channels
  48.     /Binary  exch def        % Binary data flag
  49.     /IBits   exch def        % Bits per component
  50.     /IHeight exch def        % Image height
  51.     /IWidth  exch def        % Image width
  52.  
  53.     % Get the frame buffer dimensions
  54.  
  55.     newpath clippath pathbbox
  56.     /URy exch def
  57.     /URx exch def
  58.     /LLy exch def
  59.     /LLx exch def
  60.     /FBWidth  URx LLx sub def
  61.     /FBHeight URy LLy sub def
  62.  
  63.     % If we are doing N up calculate new frame buffer dims and
  64.     % image origin coords
  65.  
  66.     NUpX 1 gt NUpY 1 gt or {
  67.     /MarX 10 def    % Inter-image margins
  68.     /MarY 10 def
  69.     /FBWidth FBWidth NUpX 1 add MarX mul sub NUpX div def
  70.     /FBHeight FBHeight NUpY 1 add MarY mul sub NUpY div def
  71.     /LLx MarX FBWidth add NPos NUpX mod mul MarX add LLx add def
  72.     /LLy NUpY NPos NUpX NUpY mul mod NUpX idiv sub 1 sub
  73.                 MarY FBHeight add mul MarY add LLy add def
  74.     } if
  75.  
  76.     % Compute aspect ratios
  77.  
  78.     /FBAspect FBWidth FBHeight div def
  79.     /IAspect IWidth IHeight div def
  80.  
  81.     % If best fit desired, determine best fit rotation angle.
  82.     % The best fit occurs when the image and frame buffer aspect
  83.     % ratios are both on the same side of 1.0
  84.  
  85.     BestFit 1 eq {
  86.     FBAspect 1.0 lt IAspect 1.0 lt xor {
  87.         /Angle 90 def
  88.     } {
  89.         /Angle 0 def
  90.     } ifelse
  91.     }
  92.  
  93.     % Otherwise normalize the rotation angle to 0 <= Angle < 360
  94.     % so that we can perform bounding box calc and we only have
  95.     % to special case a few angles
  96.  
  97.     {
  98.     /Angle Angle 360 mod dup 0 lt {
  99.         360 add
  100.     } if def
  101.     } ifelse
  102.  
  103.     % Compute the bounding box dimensions of the rotated image
  104.     % and the bounding box aspect ratio.
  105.  
  106.     Angle 0 eq Angle 180 eq or {
  107.     /IBWidth IWidth def
  108.     /IBHeight IHeight def
  109.     /IBAspect IAspect def
  110.     } {
  111.     Angle 90 eq Angle 270 eq or {
  112.         /IBWidth IHeight def
  113.         /IBHeight IWidth def
  114.         /IBAspect IHeight IWidth div def
  115.     } {
  116.         /AbsSin Angle sin abs def
  117.         /AbsCos Angle cos abs def
  118.         /IBWidth IWidth AbsCos mul IHeight AbsSin mul add def
  119.         /IBHeight IWidth AbsSin mul IHeight AbsCos mul add def
  120.             /IBAspect IBWidth IBHeight div def
  121.     } ifelse
  122.     } ifelse
  123.  
  124.     % Calculate the scaled image bounding box dimensions. This is
  125.     % also where we apply the zoom factor or ppi scaling.
  126.  
  127.     IRes 0 eq {
  128.     Zoom 0.0 gt {            % Zoom as fraction imageable area
  129.             FBAspect IBAspect lt {
  130.             /XBSize FBWidth Zoom mul def
  131.             /YBSize FBWidth IBAspect div Zoom mul def
  132.             } {
  133.             /XBSize FBHeight IBAspect mul Zoom mul def
  134.             /YBSize FBHeight Zoom mul def
  135.             } ifelse
  136.         } {                % No zoom, 1 dot in == 1 dot out 
  137.         /XBSize IBWidth 1 1 dtransform pop abs div def
  138.         /YBSize IBHeight 1 1 dtransform exch pop abs div def
  139.     } ifelse
  140.     } {                    % Required image resolution (ppi)
  141.     /XBSize IBWidth IRes 72 div div def
  142.     /YBSize IBHeight IRes 72 div div def
  143.     } ifelse
  144.  
  145.     % Calculate the scaled image dimensions
  146.  
  147.     Angle 0 eq Angle 180 eq or {
  148.     /XISize XBSize def
  149.     /YISize YBSize def
  150.     } {
  151.     Angle 90 eq Angle 270 eq or {
  152.         /XISize YBSize def
  153.         /YISize XBSize def
  154.     } {
  155.         /XISize XBSize AbsCos 1.0 IAspect div AbsSin mul add div def
  156.         /YISize XBSize IAspect AbsCos mul AbsSin add div def
  157.     } ifelse
  158.     } ifelse
  159.  
  160.     % Translate origin of imageable area
  161.  
  162.     LLx LLy translate
  163.  
  164.     % Center the image
  165.  
  166.     FBWidth XBSize sub 2 div
  167.     FBHeight YBSize sub 2 div
  168.     translate
  169.  
  170.     % Rotate the image about its center, then mirror it
  171.     % about y if flip is specified
  172.  
  173.     XBSize 2 div YBSize 2 div translate
  174.     FlipY 1 eq {
  175.         1.0 neg 1.0 scale
  176.     } if
  177.     Angle rotate
  178.     XISize 2 div neg YISize 2 div neg translate
  179.  
  180.     % Scale the image to the desired size
  181.  
  182.     XISize YISize scale
  183.  
  184.     % Define a data reading procedure appropriate to
  185.     % the image data type
  186.  
  187.     Binary 0 eq {
  188.     /getByte { readhexstring } bind def
  189.     } {
  190.     /getByte { readstring } bind def
  191.     } ifelse
  192.  
  193.     % Execute the sampling operator appropriate to the
  194.     % colorspace of the data. That is, 'image' if number of
  195.     % channels is 1 (e.g. W), 'colorimage' if it is 3 (e.g. RGB)
  196.     % or 4 (e.g. CMYK)
  197.     %
  198.     % Even though the Redbook indicates the string can be any size
  199.     % experience indicates that string should be the number of
  200.     % bytes per row.
  201.  
  202.     /IRowStr NChans IWidth mul IBits
  203.         mul 7 add 8 idiv string def     % Allocate row bytes of string
  204.     IWidth IHeight IBits        % Image width, height, bpp
  205.     RasDir 0 eq {            % Sample based on raster direction
  206.         [IWidth 0 0 IHeight neg 0 IHeight]    % Top to bottom
  207.     } {
  208.         [IWidth 0 0 IHeight 0 0]        % Bottom to top
  209.     } ifelse
  210.     { currentfile IRowStr getByte pop } bind    % Sampling proc
  211.     NChans 1 eq {                % Use image if black and white
  212.         image
  213.     } {
  214.     systemdict /colorimage known {        % Only if have colorimage
  215.         false NChans            % Interleaved data
  216.         colorimage
  217.     } {                    % If no colorimage print error
  218.         initgraphics
  219.         /Courier findfont 12 scalefont setfont
  220.         LLx 5 add FBHeight 2 div 2 copy moveto
  221.         (PSImageProlog Error: 'colorimage' operator not available,)
  222.         show
  223.         15 sub moveto
  224.         (                     re-render image in black and white \(w\).)
  225.         show
  226.         showpage
  227.         quit
  228.     } ifelse
  229.     } ifelse
  230. } bind def
  231.  
  232. %%EndResource
  233.